From: Lars Magne Ingebrigtsen Date: Wed, 13 Jul 2011 13:10:54 +0000 (+0200) Subject: (Info-find-file): Fall back on the installation directory if we can't find the info... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2890 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a029035fafef8aca05394543ff0c8b5253965936;p=emacs.git (Info-find-file): Fall back on the installation directory if we can't find the info node anywhere else. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dda3efb1f1e..9c661cbb819 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-13 Lars Magne Ingebrigtsen + + * info.el (Info-find-file): Fall back on the installation + directory if we can't find the info node anywhere else. + 2011-07-13 Sergei Organov (tiny change) * vc/vc.el (vc-revert-file): diff --git a/lisp/info.el b/lisp/info.el index 29daac566d1..9e67542cda5 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -728,6 +728,11 @@ just return nil (no error)." (append Info-directory-list Info-additional-directory-list) Info-directory-list))))) + ;; Fall back on the installation directory if we can't find + ;; the info node anywhere else. + (when installation-directory + (setq dirs (append dirs (list (expand-file-name + "info" installation-directory))))) ;; Search the directory list for file FILENAME. (while (and dirs (not found)) (setq temp (expand-file-name filename (car dirs)))